home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 53
/
Tiger_Disk_053_1998-08_Tiger-Crew-Disk_de_Side_B.d64
/
ende - - - - 095
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
661b
|
15 lines
11111 poke53280,.:poke53281,.:printchr$(147):print"[151]lukian":fort=1to759:next
11112 :poke53265,(peek(53265)and242)+12
11113 print"[147]";:
11114 ifz=10thenprint"[147][192][192][192][192][192][192][192][192][192][192] ende [192][192][192][192][192][192][192][192][192][192]":goto11124
11115 poke53281,.: print"[156]>>>>>>>>>> ende <<<<<<<<<<[146]";:poke53281,11
11116 print"[158]>>>>>>>>>> ende <<<<<<<<<<";:poke53281,.:
11117 print">>>>>>>>>> ende <<<<<<<<<<[146]";:poke53281,11:
11118 print">>>>>>>>>> ende <<<<<<<<<<";:poke53281,.
11119 print"[129]>>>>>>>>>> ende <<<<<<<<<<[146]";
11120 poke53265,(peek(53265)and248)+7:z=z+1:fordp=6to0step-2
11121 s=54272:pokes+4,17:pokes+24,15:pokes+4,128:pokes+1,5+abs(111-dp)
11122 poke53265,(peek(53265)and248)+dp:forx=1to50:next:next:
11123 : goto11114
11124 sys58253